home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / ttt5.arc / DEMO5.EXE / lha / READDEM1.PAS < prev    next >
Pascal/Delphi Source File  |  1989-01-31  |  385b  |  19 lines
  1. Program ReadTTT5_Demo_1;
  2.  
  3. {$V-}  {turn of string checking}
  4.  
  5. Uses CRT, FastTTT5, READTTT5;
  6.  
  7.  
  8. var
  9.   Name : String;
  10.  
  11. begin
  12.     Clrscr;
  13.     Name := '';
  14.     Read_String(5,1,30,' Enter your name ===> ',1,Name);
  15.     WriteAT(1,5,white,black,'Run DemoTTT.exe for the main demo program');
  16.     WriteAT(1,6,white,black,'Technojock''s Turbo Toolkit v5.0');
  17.     GotoXY(1,7);
  18. end.
  19.